Stone Design/Stone Design.iso/Stone_Friends/Wave/WavesWorld/Examples/Rocky/Dexter5.wwModel/initialDefines.eve

Text File | 1995-03-22 | 3.1 KB | 114 lines

set head(leftSideRightSideR) 0.5
set head(leftSideRightSideRMin) -20
set head(leftSideRightSideRMax) 20
proc rotateHeadSideLeftSideRight {u min max}  {  Rotate [expr {lerpUp($u, $min, $max)}] 0 0 1 }

set head(leftRightR) 0.5
set head(leftRightRMin) -60
set head(leftRightRMax) 60
proc rotateHeadLeftRight {u min max}  {  Rotate [expr {lerpUp($u, $min, $max)}] 0 1 0 }

set head(upDownR) 0.33
set head(upDownRMin) -10
set head(upDownRMax) 20
proc rotateHeadUpDown {u min max}  {  Rotate [expr {lerpUp($u, $min, $max)}] 1 0 0 }


set head(jawXR) 0.7
set head(jawXRMin) -20
set head(jawXRMax) 7
proc jawXR {u min max}  {  Rotate [expr {lerpUp($u, $min, $max)}] 1 0 0 }

set head(jawYR) 0.5
set head(jawYRMin) -5
set head(jawYRMax) 5
proc jawYR {u min max} {  Rotate [expr {lerpUp($u, $min, $max)}] 0 1 0 }

set head(jawZR) 0.5
set head(jawZRMin) -3
set head(jawZRMax) 3
proc jawZR {u min max}  {  Rotate [expr {lerpUp($u, $min, $max)}] 0 0 1    }

set head(lidRMin) 65
set head(lidRMax) 100
set head(leftLidR) .7
set head(rightLidR) .7
proc openLid {u min max} {  Rotate [expr {lerpUp($u, $min, $max)}] 1 0 0 }

set head(eyeLeftRightRMin) -40
set head(eyeLeftRightRMax) 40
set head(eyeLeftRightR) .5
proc setLookLeftRightAngle {u min max}  {  Rotate [expr lerpDown($u, $min, $max)] 0 1 0 }

set leftShoulder(yScale) 1
set leftShoulder(thetaMax) 360
set leftShoulder(minorRadius) 0.07
set leftShoulder(phiMin) 0
set leftShoulder(xTranslate) 0
set leftShoulder(xRotate) 90
set leftShoulder(phiMax) 360
set leftShoulder(yRotate) 0
set leftShoulder(xScale) 0.521311
set leftShoulder(zTranslate) -0.066667
set leftShoulder(zRotate) 80
set leftShoulder(majorRadius) 0.07
set leftShoulder(zScale) 1.052459
set leftShoulder(yTranslate) 0

set rightShoulder(yScale) 1.0
set rightShoulder(thetaMax) 360
set rightShoulder(minorRadius) 0.07
set rightShoulder(phiMin) 0
set rightShoulder(xTranslate) 0
set rightShoulder(xRotate) 270
set rightShoulder(phiMax) 360
set rightShoulder(yRotate) 0
set rightShoulder(xScale) 0.521311
set rightShoulder(zTranslate) 0.066667
set rightShoulder(zRotate) 80
set rightShoulder(majorRadius) 0.07
set rightShoulder(zScale) 1.052459
set rightShoulder(yTranslate) 0

set armOffset(xT) -0.25
set armOffset(yT) .15
set armOffset(zT) 0
set armOffset(yR) -180

set shoulder(xOffset) .0433
set shoulder(zOffset) .06

set leftShoulder(zOffset) .035
set rightShoulder(zOffset) .035

set spin(x) 0
set spin(y) 0
set spin(z) 0

set head(color) {.345546 .593097 .47322}


set match(xT) -.2
set match(yT) -.05
set match(zT) -.4

# for right now, we'd like the x rotation of the match to be keyed off
# how big Dexter's mouth is open.  Actually, we'd probably like to clamp
# it to the interval of .7 to 1, and just let it droop to the min below
# that.
set match(xRMin) -20
set match(xRMax) 20
EveCmd {set match(xR) $head(jawXR)}
proc setMatchXR {u min max}  {  Rotate [expr lerpUp($u, $min, $max)] 1 0 0 }

set match(yR) .7
set match(yRMin) 160
set match(yRMax) 220
proc setMatchYR {u min max}  {  Rotate [expr lerpUp($u, $min, $max)] 0 1 0  }

set match(zR) 0
set match(zRMin) 0
set match(zRMax) 360
proc setMatchZR {u min max}  {  Rotate [expr lerpUp($u, $min, $max)] 0 0 1 }